'** Show Dice
'by Brad Moore - in the public domain


WindowWidth = 740
WindowHeight = 160
UpperLeftX = 40
UpperLeftY = 40

Open "Show Dice" for Graphics_nsb as #main

    #main "trapclose [quit]"
    #main "down; fill white; up; flush"
    #main "font ms_sans_serif 10"
    
    'show dice outlines
    #main "goto 20 20; down; box 100 100; up"
    #main "goto 140 20; down; box 220 100; up"
    #main "goto 260 20; down; box 340 100; up"
    #main "goto 380 20; down; box 460 100; up"
    #main "goto 500 20; down; box 580 100; up"
    #main "goto 620 20; down; box 700 100; up"

    'set the back color
    #main "backcolor black"    
    
    'draw one
    #main "up; goto 60 60"
    #main "down; circlefilled 5"

    'draw two
    #main "up; goto 155 35"
    #main "down; circlefilled 5"
    #main "up; goto 205 85"
    #main "down; circlefilled 5"

    'draw three
    #main "up; goto 300 60"
    #main "down; circlefilled 5"
    #main "up; goto 275 35"
    #main "down; circlefilled 5"
    #main "up; goto 325 85"
    #main "down; circlefilled 5"
  
    'draw four  
    #main "up; goto 395 35"
    #main "down; circlefilled 5"
    #main "up; goto 445 85"
    #main "down; circlefilled 5"
    #main "up; goto 445 35"
    #main "down; circlefilled 5"
    #main "up; goto 395 85"
    #main "down; circlefilled 5"

    'draw five - you get to do this one
    
    'draw six - you get to do this one too

    #main "flush"
   
    Wait

[quit]
    close #main : END